        PROGRAM example1

        IMPLICIT NONE
        INTEGER*4 :: rc

        rc=-1
        CALL ifxinit(rc)
        WRITE(*,*) 'Result: rc=',rc

        STOP 'Done.'

        END PROGRAM example1
